home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / pgm_tool / nwtp06 / tstserv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-01  |  4.0 KB  |  123 lines
  1. {$X+,V-,B-}
  2. program tstServ;
  3.  
  4. { Testprogram for the nwServ unit / NwTP 0.6 API. (c) 1993,1995, R.Spronk }
  5.  
  6. { Tests the following nwServ functions:
  7.  
  8.   GetFileServerDateAndTime
  9.   GetFileServerDescriptionStrings
  10.   GetNetworkSerialNumber
  11.   GetFileServerInformation
  12.   SetFileServerDateAndTime
  13.   VerifyNetworkSerialNumber
  14. }
  15.  
  16. uses nwMisc,nwServ;
  17.  
  18. Var t1,t2,t3:TnovTime;
  19.     s1,s3:string;
  20.  
  21.     serialNbr:Longint;
  22.     appNbr,appNbr2:word;
  23.  
  24.     Sinfo:TFileServerInformation;
  25.  
  26.     companyName,VersionAndRevision,
  27.     revisionDate,copyrightNotice:String;
  28.  
  29. begin
  30. writeln('TSTSERV: Test of some server function calls.');
  31. writeln;
  32. writeln('This program will change (and reset) the server time & date.');
  33. writeln('--This will cause the server to beep (twice)--');
  34. writeln;
  35. writeln('Continue ? (Y/N) + <RETURN>');
  36. readln(s1);
  37. if (pos('y',s1)=0) and (pos('Y',s1)=0)
  38.  then halt(1);
  39.  
  40. writeln('Testing the Get/Set ServerTime Calls. (temporarily setting the year to 2020)');
  41. IF GetFileServerDateAndTime(t1)
  42.  then begin
  43.       nwMisc.NovTime2String(t1,s1);
  44.       writeln('Original server time:',s1);
  45.       t2:=t1;
  46.       t2.year:=20; { set year to 2020 }
  47.       t2.day:=1;
  48.       t2.month:=4;
  49.       IF SetFileServerDateAndTime(t2)
  50.        then begin
  51.             GetFileServerDateAndTime(t3);
  52.             nwMisc.NovTime2String(t3,s3);
  53.             if t3.year<>t2.year
  54.              then writeln('Error: FileServerDateAndTime NOT changed..');
  55.             writeln('New server time:',s3);
  56.             SetFileServerDateAndTime(t1)  {restore old date & time }
  57.             end
  58.        else begin
  59.             if nwServ.result=$C6
  60.              then writeln('Error: You need console privileges in order to change the server time.')
  61.              else writeln('SetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  62.             end
  63.       end
  64.  else writeln('GetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  65.  
  66. writeln;
  67. IF GetFileServerInformation(Sinfo)
  68.  then begin
  69.       writeln('Testing GetServerInformation..');
  70.       writeln('Servername:',Sinfo.serverName);
  71.       writeln('NW version:',Sinfo.NetwareVersion,'.',Sinfo.NetwareSubVersion);
  72.       writeln('Conn Max,Current:',Sinfo.ConnectionsMax,',',Sinfo.ConnectionsInUse);
  73.       writeln('Peak Conn Used  :',Sinfo.Peak_Conn_Used);
  74.       end
  75.  else writeln('GetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  76.  
  77. writeln;
  78. IF GetFileServerDescriptionStrings(companyName,VersionAndRevision,
  79.                                    revisionDate,copyrightNotice)
  80.  then begin
  81.       writeln('Testing GetFileServerDescriptionStrings');
  82.       writeln('Company    :',companyName);
  83.       writeln('Version/Rev:',VersionAndRevision);
  84.       writeln('Rev.Date   :',revisionDate);
  85.       writeln('Copyright  :',copyRightNotice);
  86.       end
  87.  else writeln('GetFileServerDescriptionStrings Error: $',HexStr(nwServ.result,2));
  88.  
  89.  
  90. writeln;
  91. IF GetNetworkSerialNumber(serialNbr,appNbr)
  92.  then begin
  93.       writeln('Testing GetNetworkSerialNumber');
  94.       writeln('SerialNbr=',HexStr(serialNbr,8));
  95.       writeln('AppNbr   =',HexStr(appNbr,4));
  96.       end
  97.  else writeln('GetNetworkServerSerialNumber Error: $',HexStr(nwServ.result,2));
  98.  
  99. { The last test is commented out. It works, but it is a bit irritating to
  100.   be disconnected every time I'm testing a call.. }
  101.  
  102.  
  103. writeln('Testing VerifyNetworkSerialNumber (will abort workstations'' connection)');
  104. writeln('Continue ? (Y/N) + <RETURN>');
  105. readln(s1);
  106. if (pos('y',s1)=0) and (pos('Y',s1)=0)
  107.  then halt(1);
  108.  
  109. {
  110. IF VerifyNetworkSerialNumber(serialNbr,appNbr2)
  111.  then begin
  112.       if appNbr2=appNbr then writeln('Serial Number Verified.');
  113.       writeln;
  114.       writeln('Verifying a wrong network serialnumber..');
  115.       writeln('**** THIS WILL TERMINATE THE CONNECTION **** (if the calls works..)');
  116.       If VerifyNetworkSerialNumber($12345678,appNbr2)
  117.        then writeln('false serialnumber verified as being OK');
  118.       end
  119.  else writeln('VerifyNetworkSerialNumber Error: $',HexStr(nwServ.result,2));
  120. }
  121.  
  122. end.
  123.